(deftemplate intrebare
(slot stringIntrebare)
(slot raspuns)
)
(assert (intrebare (stringIntrebare nil)(raspuns nil)))
(defrule q1
(intrebare (stringIntrebare nil)(raspuns nil))
=>
(printout t "Sunteti angajat pe perioada nedeterminata? (DA/NU)" crlf)
(bind ?r (read))
(assert (intrebare (stringIntrebare "Sunteti angajat pe perioada nedeterminata")(raspuns ?r)))
)


(defrule q2
(intrebare (stringIntrebare "Sunteti angajat pe perioada nedeterminata")(raspuns DA))
=>
(printout t "Mai aveti alte credite? (DA/NU)" crlf)
(bind ?r (read))
(assert (intrebare (stringIntrebare "Mai aveti alte credite")(raspuns ?r)))
)

(defrule q3
(intrebare (stringIntrebare "Mai aveti alte credite")(raspuns NU))
=>
(printout t "Ce varsta aveti? a) ?<=21  b) 22-25  c) 25-30  d) 30-45  e) > 50" crlf)
(bind ?r (read))
(assert (intrebare (stringIntrebare "Ce varsta aveti")(raspuns ?r)))
)

(defrule q4
(intrebare (stringIntrebare "Ce varsta aveti")(raspuns B))
=>
(printout t "Ce venit aveti? a) ? <1500  b) 1500-2000  c) 2000-3000  d) > 3000 " crlf)
(bind ?r (read))
(assert (intrebare (stringIntrebare "Ce venit aveti")(raspuns ?r)))
)

(defrule q5
(intrebare (stringIntrebare "Ce varsta aveti")(raspuns C))
=>
(printout t "Ce venit aveti? a) ? <1500  b) 1500-2000  c) 2000-3000  d) > 3000 " crlf)
(bind ?r (read))
(assert (intrebare (stringIntrebare "Ce venit aveti")(raspuns ?r)))
)
(defrule q6
(intrebare (stringIntrebare "Ce varsta aveti")(raspuns D))
=>
(printout t "Ce venit aveti? a) ? <1500  b) 1500-2000  c) 2000-3000  d) > 3000 " crlf)
(bind ?r (read))
(assert (intrebare (stringIntrebare "Ce venit aveti")(raspuns ?r)))
)

(defrule q7
(intrebare (stringIntrebare "Ce venit aveti")(raspuns b))
=>
(printout t " Sunteti casatorit? (DA/NU) " crlf)
(bind ?r (read))
(assert (intrebare (stringIntrebare "Sunteti casatorit")(raspuns ?r)))
)

(defrule q8
(intrebare (stringIntrebare "Sunteti casatorit")(raspuns DA))
=>
(printout t " Creditul a fost acceptat " crlf)

)

(defrule q9
(intrebare (stringIntrebare "Ce venit aveti")(raspuns c))
=>
(printout t " Creditul a fost acceptat " crlf)
)

(defrule q10
(intrebare (stringIntrebare "Ce venit aveti")(raspuns d))
=>
(printout t " Creditul a fost acceptat " crlf)
)

(run)
(facts)